home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cuademo.bas < prev    next >
BASIC Source File  |  1995-03-17  |  606b  |  29 lines
  1. Option Explicit
  2.  
  3. Global Const BOKW = 1
  4. Global Const TABW = 2
  5. Global Const MAIW = 3
  6. Global Const LBLW = 4
  7.  
  8. Global DatabaseName$
  9.  
  10. Global Const HELP_CONTENTS = &H3
  11.  
  12. Declare Function WinHelp Lib "User" (ByVal hWnd%, ByVal FileName$, ByVal Cmd%, ByVal dwData As Long) As Integer
  13.  
  14. Sub CenterWindow (Source As Form)
  15.    ' Placera dialogen snyggt
  16.    Dim L%, T%
  17.  
  18.    L = (Screen.Width - Source.Width) \ 2
  19.    T = (Screen.Height - Source.Height) \ 2
  20.  
  21.    'If Not Source.MDIChild Then
  22.    '   L = L + Source.Parent.Left
  23.    '   T = T + Source.Parent.Top
  24.    'End If
  25.  
  26.    Source.Move L, T
  27. End Sub
  28.  
  29.